home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 February / NetCD2.iso / Patch / age / age2cpfix.exe / data / GAMEDATA.DRS / Unnamed File 000026.bina < prev    next >
Encoding:
Text File  |  1999-11-11  |  3.5 KB  |  166 lines
  1. ;need to add a section in which he joins our side then betrays us!
  2. (defrule
  3.     (current-age >= feudal-age)
  4. =>
  5.     (set-goal personality NOTICE)
  6.     (generate-random-number 6)
  7.     (disable-self)
  8. )
  9.  
  10. (defrule
  11.     (goal personality NOTICE)
  12.     (random-number == 1)
  13. =>
  14.     (set-goal personality 11)
  15.     (disable-self)
  16. )
  17.  
  18. (defrule
  19.     (goal personality NOTICE)
  20.     (random-number == 2)
  21. =>
  22.     (set-goal personality 12)
  23.     (disable-self)
  24. )
  25.  
  26. (defrule
  27.     (goal personality NOTICE)
  28.     (random-number == 3)
  29. =>
  30.     (set-goal personality 13)
  31.     (disable-self)
  32. )
  33.  
  34. (defrule
  35.     (goal personality NOTICE)
  36.     (random-number == 4)
  37. =>
  38.     (set-goal personality 14)
  39.     (disable-self)
  40. )
  41.  
  42. (defrule
  43.     (goal personality NOTICE)
  44.     (random-number == 5)
  45. =>
  46.     (set-goal personality 15)
  47.     (disable-self)
  48. )
  49.  
  50. (defrule
  51.     (goal personality NOTICE)
  52.     (random-number == 6)
  53. =>
  54.     (set-goal personality 16)
  55.     (disable-self)
  56. )
  57.  
  58. #load-if-not-defined TEAMS-LOCKED
  59. (defrule
  60.     (timer-triggered  t-chat)
  61.     (goal personality BULLY)
  62.     (goal rush-control RUSHING)
  63. =>
  64.     (chat-to-player-using-id this-any-human-enemy 22105)
  65.     (chat-to-player-using-id this-any-human-enemy 22106)
  66.     (disable-timer t-chat)
  67.     (enable-timer t-chat 1200)
  68.     (disable-self)
  69. )
  70.  
  71. (defrule
  72.     (goal personality BULLY)
  73.     (players-stance any-human ally)
  74. =>
  75.     (chat-to-player-using-id this-any-human 22107)
  76.     (set-goal rush-control RUSHING)
  77.     (disable-self)
  78. )
  79. #end-if
  80.  
  81. (defrule
  82.     (timer-triggered  t-chat)
  83.     (xor
  84.         (xor
  85.             (and
  86.                 (population > 50)
  87.                 (players-population any-human-enemy < 40)
  88.             )
  89.             (and
  90.                 (population > 40)
  91.                 (players-population any-human-enemy < 30)
  92.             )
  93.         )
  94.         (and
  95.             (population > 30)
  96.             (players-population any-human-enemy < 20)
  97.         )
  98.     )
  99. =>
  100.     (chat-to-player-using-id this-any-human-enemy 22108)
  101.     (chat-to-player-using-id this-any-human-enemy 22109)
  102.     (disable-timer t-chat)
  103.     (enable-timer t-chat 1200)
  104.     (disable-self)
  105. )
  106.  
  107. (defrule
  108.     (timer-triggered  t-chat)
  109.     (building-type-count-total market > 0)
  110.     (cc-players-building-type-count any-human-enemy market > 0)
  111.     (not (goal 1 10) )
  112. =>
  113.     (chat-to-player-using-id this-any-human-enemy 22110)
  114.     (chat-to-player-using-id this-any-human-enemy 22111)
  115.     (disable-timer t-chat)
  116.     (enable-timer t-chat 1200)
  117.     (disable-self)
  118. )
  119.  
  120. (defrule
  121.     (timer-triggered  t-chat)
  122.     (building-type-count-total dock > 0)
  123.     (cc-players-building-type-count any-human-enemy dock > 0)
  124.     (goal 1 10)
  125. =>
  126.     (chat-to-player-using-id this-any-human-enemy 22112)
  127.     (chat-to-player-using-id this-any-human-enemy 22110)
  128.     (disable-timer t-chat)
  129.     (enable-timer t-chat 1200)
  130.     (disable-self)
  131. )
  132.  
  133. (defrule
  134.     (timer-triggered  t-chat)
  135.     (stance-toward any-human enemy)
  136. =>
  137.     (chat-to-player-using-id this-any-human-enemy 22113)
  138.     (clear-tribute-memory this-any-human-enemy food)
  139.     (clear-tribute-memory this-any-human-enemy wood)
  140.     (clear-tribute-memory this-any-human-enemy gold)
  141.     (clear-tribute-memory this-any-human-enemy stone)
  142.     (disable-timer t-chat)
  143.     (enable-timer t-chat 1200)
  144.     (disable-self)
  145. )
  146.  
  147. (defrule
  148.     (or
  149.         (or
  150.             (players-tribute-memory any-human-enemy wood >= 100)
  151.             (players-tribute-memory any-human-enemy food >= 100)
  152.         )
  153.         (or
  154.             (players-tribute-memory any-human-enemy gold >= 100)
  155.             (players-tribute-memory any-human-enemy stone >= 100)
  156.         )
  157.     )
  158. =>
  159.     (chat-to-player-using-id this-any-human-enemy 22114)
  160.     (clear-tribute-memory this-any-human-enemy food)
  161.     (clear-tribute-memory this-any-human-enemy wood)
  162.     (clear-tribute-memory this-any-human-enemy gold)
  163.     (clear-tribute-memory this-any-human-enemy stone)
  164. )
  165.  
  166.